home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / System / SerialDevice.st < prev    next >
Text File  |  2000-05-03  |  2KB  |  86 lines
  1. " ---------------------------------------------------------------------"
  2. " SerialDevice Class is derived from abstract Device Class.            "
  3. ""
  4. "  WARNING:  You should know what you're doing to the Amiga OS before  "
  5. "            messing with this Class, or any other System Class!       "
  6. " ---------------------------------------------------------------------"
  7.  
  8. Class SerialDevice :Device
  9. ! 
  10.   terminators status   baudrate dSize    stops      bufferSize 
  11.   brkLen      rBufSize flags    syncType serialName
  12. !
  13. [
  14.    setBufferSize: newSize
  15.       bufferSize <- newSize
  16. |      
  17.    open
  18.       <primitive 227 1 bufferSize serialName>
  19. |
  20.    close
  21.       <primitive 227 0 bufferSize serialName>
  22. |
  23.    initializeWithTerm: charVal
  24.       <primitive 227 2 charVal serialName>
  25. |
  26.    readSync: syncValue
  27.       ^ <primitive 227 3 syncValue serialName>
  28. |
  29.    writeThis: writeString
  30.       <primitive 227 4 writeString serialName>
  31. |
  32.    reset
  33.       <primitive 227 5 serialName>
  34. |
  35.    pause
  36.       <primitive 227 6 serialName>
  37. |
  38.    restart
  39.       <primitive 227 7 serialName>
  40. |
  41.    sendBreakOfDuration: usecs
  42.       <primitive 227 8 usecs serialName>
  43. |
  44.    getStatus
  45.       ^ status <- <primitive 227 9 serialName>
  46. |
  47.    flush
  48.       <primitive 227 10 serialName>
  49. |
  50.    clearReadBuffer
  51.       <primitive 227 11 serialName>
  52. |
  53.    setSyncType: newSync
  54.       ^ syncType <- <primitive 227 12 newSync serialName>
  55. |
  56.    setBaud: newBaud
  57.       ^ baudrate <- <primitive 227 13 0 newBaud serialName>
  58. |
  59.    setParity: newParity status: onOrOff 
  60.  
  61.       " newParity: 0 = Space, 1 = Mark, 2 = Even & 3 = Odd: "
  62.       <primitive 227 15 newParity onOrOff serialName>
  63. |
  64.    setDataSize: newSize
  65.       ^ dSize <- <primitive 227 13 2 newSize serialName>
  66. |
  67.    setStops: newStops
  68.       ^ stops <- <primitive 227 13 3 newStops serialName>
  69. |
  70.    setBreakLen: duration
  71.       ^ brkLen <- <primitive 227 13 4 duration serialName>
  72. |
  73.    setRBufSize: size
  74.       ^ rBufSize <- <primitive 227 13 5 size serialName>
  75. |
  76.    setFlags: newFlags
  77.       ^ flags <- <primitive 227 13 6 newFlags serialName>
  78. |
  79.    setTerminators: termChars
  80.       ^ terminators <- <primitive 227 14 termChars serialName>
  81. |
  82.    new: newSerialName
  83.       serialName <- newSerialName.
  84.       ^ self
  85. ] 
  86.